home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 05 - 1989 / 05.03 Mar 89 / Basic⁄Pascal Source Code / ADB Pascal Sample / ADB.R < prev    next >
Encoding:
Text File  |  1989-02-06  |  5.8 KB  |  295 lines  |  [TEXT/EDIT]
  1. *ADB.R
  2. *
  3.  
  4. ADB.RSRC
  5. ????ADBx
  6.  
  7. Type ADBx = STR 
  8.     ,0
  9. ADB Demo \0D© by Dave Kelly & Dave Smith \0Dver 2 MAR 1989
  10.  
  11. * Multifinder Menu for Quit Cmd
  12. Type mstr = STR 
  13.     ,100
  14. File
  15.  
  16. * Multifinder Quit name
  17. Type mstr = STR 
  18.     ,101
  19. Quit
  20.  
  21. Type FREF
  22. ,128
  23. APPL 0
  24. ,129
  25. TEXT 1
  26.  
  27. Type BNDL
  28. ,128
  29. ADBx 0
  30. ICN#
  31. 0 128 1 129
  32. FREF 
  33. 0 128 1 129
  34.  
  35. * ------ Multifinder events ---------
  36.  
  37. * bit 15 = reserved
  38. * bit 14 = accept suspend resume events
  39. * bit 13 = reserved
  40. * bit 12 = can do background on null events
  41. * bit 11 = multifinder aware 
  42. *         (activates & deactivates topmost 
  43. *           window at resume, suspend events)
  44.  
  45. Type SIZE = GNRL
  46.     ,-1
  47. .H
  48. 4800        ;; $4800 = bits 14,11 set
  49. .L
  50. 128000    ;; (for 150K recomended)
  51. .L
  52. 80000    ;; (for 80K minimum)
  53. .I
  54.  
  55. Type vers = GNRL
  56.     , 1
  57. .H
  58. 01    ;; byte vers # in BCD
  59. 10    ;; byte vers part 2 & 3
  60. 50    ;; byte release stage $50=release
  61. 00    ;; byte stage of non-release
  62. 00 00    ;; integer country 0=US
  63. .P
  64. V1.1 (US)
  65. .P
  66. ADB Demo 1.1, © by Dave Kelly & David Smith for MacTutor 1989
  67.  
  68. Type vers = GNRL
  69.     , 2
  70. .H
  71. 05    ;; byte vers # in BCD
  72. 30    ;; byte vers part 2 & 3
  73. 50    ;; byte release stage $50=release
  74. 00    ;; byte stage of non-release
  75. 00 00    ;; integer country 0=US
  76. .P
  77. V5.3
  78. .P
  79. MacTutor Volume 5 Number 3
  80.  
  81. * ------------- menus -------------
  82.  
  83. Type MENU
  84. * the desk acc menu
  85.     ,256
  86. \14        ;;apple menu
  87.     About ADB Demo…
  88.     (-
  89.  
  90. * the file menu
  91.     ,257
  92. File
  93.     ADB /A
  94.     (-
  95.     (Save /S
  96.     Save as…
  97.     Page Setup… /U
  98.     (Print… /O
  99.     (-
  100.        Quit /Q
  101.  
  102. * the edit menu
  103.     ,258
  104. Edit
  105.     (Undo /Z
  106.     (-
  107.     Cut /X
  108.     Copy /C
  109.     Paste /V
  110.     Clear
  111.  
  112.  
  113. * ------- Dialogs --------
  114. * About Box dialog...
  115. type DLOG
  116.     ,256
  117. About ADB Demo…
  118. 100 100 250 400 
  119. visible NoGoAway 
  120. 1
  121. 0
  122. 256
  123.  
  124. type DITL
  125.     ,256
  126. 3
  127. BtnItem Enabled
  128. 112 235 141 284 
  129. OK
  130.  
  131. StatText Disabled
  132. 10 88 141 289 
  133. ADB Demo\0D\0D++
  134. Queries System, blinks lights\0D^0\0D^1\0D^2\0D^3
  135.  
  136. PicItem Disabled
  137. 10 10 96 81 
  138. 128
  139.  
  140.  
  141. * Program Messages Dialog box...
  142. type DLOG
  143.     ,258
  144. Program Messages
  145. 100 100 200 400
  146. Visible NoGoAway
  147. 1
  148. 0
  149. 258
  150.  
  151. type DITL
  152.     ,258
  153. 3
  154. BtnItem Enabled
  155. 65 230 95 285
  156. OK
  157.  
  158. StatText Disabled
  159. 15 60 85 222 
  160. ^0\0D^1\0D^2\0D^3
  161.  
  162. IconItem Disabled
  163. 10 10 42 42
  164. 1
  165.  
  166. * ------ Alerts ------------
  167.  
  168. * Program error alerts...
  169. type ALRT
  170.     ,260
  171. 100 100 200 400
  172. 260
  173. 5555
  174.  
  175. type DITL
  176.     ,260
  177. 2
  178.  
  179. BtnItem
  180. 65 230 95 285
  181. OK
  182.  
  183. StatText Disabled
  184. 15 60 60 275 
  185. Program Problem Alert:\0D^0^1^2^3
  186.  
  187. * misc resources
  188.  
  189. Type ICN# = GNRL
  190.   ,128 (0)
  191. .H
  192. 0001 0000 0002 8000 0004 4000 000B E000 
  193. 0015 5000 0026 B800 0045 5400 0086 B200 
  194. 0105 5100 0213 E080 0428 0040 0810 0020 
  195. 1102 0010 2204 0008 4480 3F04 8910 4082 
  196. 4220 8041 2441 3022 1081 C814 081E 7F8F 
  197. 0402 3005 0201 0007 0100 8005 0080 6007 
  198. 0040 1FE5 0020 021F 0010 0407 0008 0800 
  199. 0004 1000 0002 2000 0001 4000 0000 8000
  200. *
  201. 0001 0000 0003 8000 0007 C000 000F E000 
  202. 001F F000 003F F800 007F FC00 00FF FE00 
  203. 01FF FF00 03FF FF80 07FF FFC0 0FFF FFE0 
  204. 1FFF FFF0 3FFF FFF8 7FFF FFFC FFFF FFFE 
  205. 7FFF FFFF 3FFF FFFE 1FFF FFFC 0FFF FFFF 
  206. 07FF FFFF 03FF FFFF 01FF FFFF 00FF FFFF 
  207. 007F FFFF 003F FE1F 001F FC07 000F F800 
  208. 0007 F000 0003 E000 0001 C000 0000 8000 
  209.  
  210. Type ICN# = GNRL
  211.   ,129 (0)
  212. .H
  213. 0FFF FE00 0800 0300 0800 0280 0800 0240 
  214. 0800 0220 0800 0210 0800 03F8 0800 0008 
  215. 0800 0008 0801 0008 0802 8008 0805 4008 
  216. 080A A008 0815 5008 082A A808 0815 5008 
  217. 080A A008 0805 4008 0802 8008 0801 0008 
  218. 0800 0008 0800 0008 0800 0008 0800 0008 
  219. 0820 79E8 0850 4528 0888 45E8 09FC 4528 
  220. 0A02 79E8 0800 0008 0800 0008 0FFF FFF8
  221. *
  222. 0FFF FE00 0FFF FF00 0FFF FF80 0FFF FFC0 
  223. 0FFF FFE0 0FFF FFF0 0FFF FFF8 0FFF FFF8 
  224. 0FFF FFF8 0FFF FFF8 0FFF FFF8 0FFF FFF8 
  225. 0FFF FFF8 0FFF FFF8 0FFF FFF8 0FFF FFF8 
  226. 0FFF FFF8 0FFF FFF8 0FFF FFF8 0FFF FFF8 
  227. 0FFF FFF8 0FFF FFF8 0FFF FFF8 0FFF FFF8 
  228. 0FFF FFF8 0FFF FFF8 0FFF FFF8 0FFF FFF8 
  229. 0FFF FFF8 0FFF FFF8 0FFF FFF8 0FFF FFF8 
  230.  
  231.     
  232. TYPE PICT = GNRL
  233.     ,128
  234. .I
  235. 891
  236. 195 254 281 325
  237. .H
  238. 1101 A000 82A0 008E 0100 0A00 0000 0002
  239. D002 4098 000A 00C3 00F8 00FF 0148 00C3
  240. 00FE 00FF 0145 00C3 00FE 00FF 0145 0000
  241. 02F7 0002 F700 02F7 0002 F700 02F7 0002
  242. F700 02F7 0002 F700 02F7 0002 F700 02F7
  243. 0006 FD00 000E FC00 07FD 0001 1F80 FD00
  244. 07FD 0001 7FC0 FD00 07FD 0001 FFF0 FD00
  245. 08FE 0002 03FF FCFD 0008 FE00 0207 FFFE
  246. FD00 09FE 0003 1FFF FF80 FE00 09FE 0003
  247. 3FFF FFE0 FE00 09FE 0003 7FFF FFF8 FE00
  248. 0A02 0000 01FE FF00 FCFE 0008 0200 0003
  249. FDFF FE00 0A02 0000 0FFD FF00 C0FF 000B
  250. 0700 001F FFFF 3FFF E0FF 000B 0700 007F
  251. FFFE 1FFF F8FF 000B 0700 00FF FFFE 1FFF
  252. FCFF 000B 0100 01FE FF02 27FF FCFF 000B
  253. 0100 01FE FF02 F9FF F8FF 000B 0100 00FE
  254. FF02 FE7F F0FF 000B 0200 003F FEFF 019F
  255. E0FF 000B 0200 001F FEFF 01E7 C0FF 000B
  256. 0200 003F FEFF 01F9 80FF 000B 0200 0033
  257. FEFF 01FE 80FF 000A 0200 0060 FDFF 00C0
  258. FF00 0B07 0000 607F FFFF FCC0 FF00 0B07
  259. 0000 601F FFFF F870 FF00 0B07 0000 6007
  260. FFFF F0F8 FF00 0B07 0000 6001 FFFF F0F8
  261. FF00 0B07 0000 6000 FFFF F0F8 FF00 0B07
  262. 0000 6038 3FFF B050 FF00 0A06 0000 607C
  263. 0FFF 30FE 000B 0700 0060 F603 FE30 A8FF
  264. 000B 0700 0060 E301 FC30 50FF 000B 0700
  265. 0060 C000 7830 20FF 000B 0700 0060 0000
  266. 1030 88FF 000B 0200 0060 FE00 0130 50FF
  267. 000A 0200 0060 FE00 0030 FE00 0B02 0000
  268. 60FE 0001 30A8 FF00 0B07 0000 6807 0700
  269. B050 FF00 0A06 0000 681F 8FC0 B0FE 000B
  270. 0700 006C 7FDF F1B0 A8FF 000A 0200 0067
  271. FEFF 0030 FE00 0B09 0000 63FF FFFE 31F4
  272. 1000 0B09 0000 307F DFF0 6046 3000 0B09
  273. 0000 381F 8FC0 E045 5000 0B09 0000 1C00
  274. 0001 C044 9000 0B09 0000 0E00 0003 8044
  275. 1000 0802 0000 07FE FFFD 0009 0500 0001
  276. FFFF FCFD 0008 FE00 0280 0004 FD00 9800
  277. 0A00 FF00 F801 1901 4800 FF00 FE01 1901
  278. 4500 FF00 FE01 1901 4500 0008 FE00 0280
  279. 0004 FD00 08FE 0002 FFFF FCFD 0008 0200
  280. 0001 FEAA FD00 0802 0000 03FE 55FD 000A
  281. 0600 0006 FEAF EA80 FE00 0A06 0000 0D83
  282. 5835 40FE 000A 0600 001B 01B0 1AA0 FE00
  283. 0A06 0000 3501 5015 50FE 000A 0600 006A
  284. 82A8 2AA8 FE00 0A06 0000 D57D 57D7 F4FE
  285. 000A 0600 01AF AAFA AC1A FE00 0A06 0003
  286. 5055 0558 0DFE 000B 0700 06A0 2A02 A80A
  287. 80FF 000B 0700 0D60 3603 5415 40FF 000B
  288. 0700 0AB0 6B06 ABEA C0FF 000B 0700 0D5F
  289. D5FD 5555 40FF 0009 0100 0AFC AA00 C0FF
  290. 0009 0100 0DFC 5500 40FF 0009 0100 0FFC
  291. FF00 C0FF 0002 F700 02F7 0002 F700 02F7
  292. 0002 F700 02F7 0002 F700 A000 8FA0 0083
  293. FF
  294.  
  295.